Option Explicit On 
Option Strict On

Imports System
Imports System.Collections

Public Class StdOrderClass
    Private sNonDigital As String = ""  'non-digital form
    Private cDigital As New Collection  'holds integer index links to cDigitalForm
    Private sFees As String = ""        'fees
    Private sInstruct As String = ""    'ordering instructions
    Private sTurnAround As String = ""  'turnaround

    Public Property NonDigitalForm() As String
        Get
            NonDigitalForm = sNonDigital
        End Get
        Set(ByVal Value As String)
            sNonDigital = Value
        End Set
    End Property

    Public Property DigitalForms() As Collection
        Get
            DigitalForms = cDigital
        End Get
        Set(ByVal Value As Collection)
            cDigital = Value
        End Set
    End Property

    Public Property Fees() As String
        Get
            Fees = sFees
        End Get
        Set(ByVal Value As String)
            sFees = Value
        End Set
    End Property

    Public Property Instructions() As String
        Get
            Instructions = sInstruct
        End Get
        Set(ByVal Value As String)
            sInstruct = Value
        End Set
    End Property

    Public Property Turnaround() As String
        Get
            Turnaround = sTurnAround
        End Get
        Set(ByVal Value As String)
            sTurnAround = Value
        End Set
    End Property

End Class
